home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / mess / MESS 0.133 / Macintosh / MessMenu 0.7.0 OSX uni.dmg / MessMenu.app / Contents / MacOS / about.tcl next >
Encoding:
Text File  |  2009-07-19  |  3.5 KB  |  144 lines
  1. option add *Listbox*font \
  2.     "-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1" startupFile
  3. option add *Entry*font \
  4.     "-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1" startupFile
  5. option add *Label*font \
  6.     "-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1" startupFile
  7.  
  8. # this is the default proc  called when "OK" is pressed
  9. # indicate your own proc as an argument to about
  10.  
  11. proc about.default.cmd {f} {
  12.     global about
  13.     destroy $w
  14. }
  15.  
  16.  
  17. # this is the default proc called when error is detected
  18. # indicate your own proc as an argument to about
  19.  
  20. proc about.default.errorHandler {errorMessage} {
  21.     puts stdout "error: $errorMessage"
  22.     catch { cd ~ }
  23. }
  24.  
  25. # this is the proc that creates the about window
  26.  
  27. proc about {
  28.     {cmd about.default.cmd} 
  29.     {w .aboutWindow} 
  30.     {errorHandler about.default.errorHandler}} {
  31.  
  32.     catch {destroy $w}
  33.  
  34.     toplevel $w
  35.     grab $w
  36.     wm title $w "About MessMenu"
  37.  
  38.  
  39.     # path independent names for the widgets
  40.     global about
  41.     set about(text) $w.about.sframe.text 
  42.     set about(scroll) $w.about.sframe.scroll
  43.     set about(ok) $w.bframe.okframe.ok
  44.  
  45.     # widgets
  46.     frame $w.about -bd 5 
  47.     frame $w.bframe -bd 5
  48.     pack append $w \
  49.         $w.about {top filly} \
  50.         $w.bframe {bottom expand frame n}
  51.  
  52.     frame $w.about.sframe
  53.  
  54.     pack append $w.about \
  55.     $w.about.sframe {top fillx}
  56.  
  57.  
  58.     text $w.about.sframe.text -width 40 -height 10 -yscrollcommand "$w.about.sframe.yscroll set"
  59.     scrollbar $w.about.sframe.yscroll -relief sunken \
  60.      -command "$w.about.sframe.text yview"
  61. #    text $w.about.sframe.text -width 40 -height 15
  62.     $w.about.sframe.text insert end {
  63. About MessMenu V0.7.0
  64. ----------
  65. This program was designed as a front
  66. end menu to sdlmess.
  67.  
  68. It is released under the terms of the
  69. GPL (GNU Public License) version 2.0
  70. or later.
  71.  
  72. Made by Barry Nelson
  73. E-Mail : root@star2.abcm.com
  74.  
  75. Change log:
  76. 0.7.0    07/19/2009
  77.     Fixed multiple bugs, cleaned up
  78.     and optimized code
  79.     Updated to work with sdlmess
  80.     version 0132
  81. 0.6.3    09/24/2008
  82.     Added a drop menu item to edit
  83.     mess.ini
  84.     Added a drop menu item to reset
  85.     mess.ini to defaults
  86.     Rewrote the file selector to
  87.     allow multiple disks or
  88.     cartridges to be selected
  89. 0.6.2    09/21/2008
  90.     Worked arround a minor bug in
  91.     sdlmess 0.127 that saves the
  92.     paths to floppy files wrong.
  93.     Updated the mess binary to
  94.     0.127 universal (ppc and intel).
  95. 0.6.1    08/05/2008
  96.     Fixed startup script to detect
  97.     when executable is moved and
  98.     have it re-init .messdir
  99. 0.6.0    05/05/2008
  100.     Added preferences dialog to
  101.     change default mess.ini settings.
  102. 0.5.3    05/05/2008
  103.     Included SDL framework inside app
  104. 0.5.2    05/03/2008
  105.     Corrected another space bug in
  106.     the launcher script. Also added
  107.     a warning if the rom does not
  108.     exist.
  109. 0.5.1    05/03/2008
  110.     Corrected silly bug that caused
  111.     errors if certain directories
  112.     contained spaces.
  113.  
  114. 0.5    05/02/2008
  115.     Initial release :-)
  116.     }
  117. #    pack append $w.about.sframe \
  118. #        $w.about.sframe.yscroll {right filly} \
  119. #     $w.about.sframe.text {left expand fill} 
  120.     pack append $w.about.sframe \
  121.         $w.about.sframe.yscroll {right filly} \
  122.      $w.about.sframe.text {left expand fill} 
  123.  
  124.     # buttons
  125. #    frame $w.bframe.okframe -borderwidth 2 -relief sunken
  126.     frame $w.bframe.okframe -borderwidth 2
  127.  
  128.     button $w.bframe.okframe.ok -text OK -relief raised \
  129.         -command "about.ok.cmd $w $cmd $errorHandler"
  130.  
  131.     pack append $w.bframe.okframe $w.bframe.okframe.ok {padx 5 pady 5}
  132.  
  133.     pack append $w.bframe $w.bframe.okframe {expand padx 5 pady 5}
  134.  
  135. }
  136.  
  137.  
  138. # auxiliary button procedures
  139.  
  140. proc about.ok.cmd {w cmd errorHandler} {
  141.     global about
  142.     destroy $w
  143. }
  144.